home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Shareware Plus / Developers / LogoMation 1.1.4 ƒ / Examples / Rutland Middle school, Canada / swirl / swirl
Encoding:
Text File  |  1996-02-18  |  359 b   |  23 lines  |  [UVtx/UVtl]
  1. // PROGRAM BY MICHAEL JACOB
  2. // JUNE 1995
  3. // FINE ARTS 8 - COMPUTER GRAPHICS
  4. // RUTLAND MIDDLE SCHOOL
  5. // KELOWNA, BC, CANADA
  6. // INSTRUCTOR:  MR. B. HOPE
  7.  
  8. Width 2
  9. Color 7149,6274,65535
  10. Up
  11. Goto -65,80,0
  12. Down
  13. angle =170
  14. Repeat 18
  15.     Forward 30
  16.     Right angle
  17.     angle = angle - 10
  18.  
  19. Repeat 18
  20.     Forward 25
  21.     Right angle
  22.     angle = angle - 10
  23. Sound "Indigo"